home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 November / Macworld (1999-11).dmg / Shareware World / Comms & Internet / Ross's PB Scripts 8-99 / PB G3 Int56K (V.34 Only).txt < prev    next >
Text File  |  1999-08-26  |  16KB  |  794 lines

  1. !  Apple Internal Modem 56k
  2. !    Author:    OIivier Mardinian (based on Kris Kreutzman's and Apple/GV V.90 Scripts)
  3. !    Modified by Ross Barkman
  4. !
  5. !    Copyright:    © 1991-1998 Apple Computer, Inc.    All Rights Reserved.
  6. !
  7. !    revision history:
  8. !        v1.0    6/22/98        Designed for the iMac, Wallstreet and PDQ 
  9. !        28 June 99        Modified to add extra init command, S2=28
  10. !
  11. !  'mlts' resource info for this modem:
  12. !    byte 1 == 01 -> modem HAS built-in error correction protocols
  13. !    byte 2 == 01 -> modem HAS built-in data compression protocols
  14. !    byte 3 == 40 -> max number of chars in varstr 7
  15. !    byte 4 == 40 -> max number of chars in varstr 8
  16. !    byte 5 == 40 -> max number of chars in varstr 9
  17. !    
  18. @ORIGINATE
  19. @ANSWER
  20. ! ---- Initial modem setup ----
  21. ! In originate mode, set serial port speed depending upon the compression flag
  22. ! - A higher rate with compression on (PPP) to handle expanded data from the modem
  23. ! - A lower rate closer to the DCE when compression is off (ARA)
  24. ifstr 5 1 "0"
  25. serreset 115200, 0, 8, 1
  26. jump 2
  27. !
  28. @LABEL 1
  29. serreset 57600, 0, 8, 1
  30. !
  31. @LABEL 2
  32. hsreset 0 0 0 0 0 0
  33. settries 0
  34. !
  35. ! Get the modem's attention
  36. !
  37. matchclr
  38. matchstr 1 3 "OK\13\10"
  39. write "AT\13"
  40. matchread 60
  41. pause 90
  42. !
  43. @LABEL 3
  44. matchclr
  45. matchstr 1 4   "OK\13\10"
  46. matchstr 2 101 "ERROR\13\10"
  47. write "AT&FE0W1Q0V1X4&C1&K3S95=1&D3S7=75S0=0S2=28+MS=11,1,300,33600\13"
  48. ! S2=28 changes the +++ escape sequence, to avoid forced disconnects
  49. !write "AT&FE0W1Q0V1X4&C1&K3S95=1&D3S7=75S0=0\13"
  50. !write "AT&FE0Q0V1X4&C1&K3S95=1S7=75S0=0\13"            (modified on 8/31/98)
  51. !write "AT&FE0W2S95=45S0=0&D3S7=60\13"                    (••••• Original GV script)
  52. matchread 90
  53. inctries
  54. iftries 3 101
  55. !
  56. ! Reset the Modem on setup failure
  57. !
  58. DTRClear
  59. pause 5
  60. DTRSet
  61. flush
  62. pause 90
  63. jump 3
  64. !
  65. !
  66. @LABEL 4
  67. ! Modem now responding and configured for full EC/DC functions.
  68. ! Varstring 4 , reliable link protocol:
  69. !    = 0, handled by computer (ARAP)
  70. !    = 1, handled by modem (PPP)
  71. !    = 2, MNP10 protocol (Cellular protocol, no longer supported)
  72. ! If PPP or Cellular mode, jump to 5, otherwise (ARA) disable EC/DC.
  73. ifstr 4 5 "1"
  74. ifstr 4 5 "2"
  75. !
  76. ! Varstring 4 == 0, turn off reliable link protocol in modem (ARAP)
  77. matchclr
  78. matchstr 1 9 "OK\13\10"
  79. write "AT\\N0\13"
  80. matchread 30
  81. jump 101
  82. !
  83. !
  84. @LABEL 5
  85. ! This is where MNP10 (or MNP10EC) could go, if/when we support that.
  86. ! Standard EC/DC is still on.  Decide whether to turn off DC.
  87. ! Varstring 5, compression protocol:
  88. !    = 0, handled by computer 
  89. !    = 1, handled by modem
  90. ifstr 5 9 "1"
  91. !
  92. ! Varstring 5 == 0, turn off compression protocol in modem.
  93. matchclr
  94. matchstr 1 9 "OK\13\10"
  95. write "AT%C0\13"
  96. matchread 30
  97. jump 101
  98. !
  99. !
  100. @LABEL 9
  101. ! If speaker on flag is true, jump to 13.  Otherwise, turn the speaker off.
  102. ! Varstring 2, modem speaker:
  103. !    = 0, speaker off
  104. !    = 1, speaker on
  105. ifstr 2 13 "1"
  106. pause 5
  107. matchclr
  108. matchstr 1 13 "OK\13\10"
  109. write "ATM0\13"
  110. matchread 30
  111. jump 101
  112. !
  113. ! Modem ready, wait for a call or originate a call
  114. !
  115. @LABEL 13
  116. ifANSWER 32
  117. !
  118. !
  119. ! ---- Originating a call ----
  120. ! For normal dialing, jump to 19.  Otherwise, manual dial jumps to 15, blind dial
  121. !    jumps to 17.
  122. ! Varstring 6, dialing mode:
  123. !    = 0, normal dialing
  124. !    = 1, blind dialing
  125. !    = 2, manual dialing
  126. ifstr 6 17 "1"
  127. ifstr 6 15 "2"
  128. jump 19
  129. !
  130. @LABEL 15
  131. ! Display ASK dialog with message.  Goto label 107 if dialog canceled.
  132. ASK 2 "Pick up the phone & dial ^1.  Hit OK when the phone rings, then hangup." 107
  133. note "Manual dialing initiated" 3
  134. ! X1S6=4 to ignore dialtone 4 seconds, & ignore busy, D to dial, \^ generates data tone
  135. !write "ATX1D\^\13"                            (••••• Original Wallstreet script)
  136. write "ATX1S6=4D\13"
  137. jump 32
  138. !
  139. @LABEL 17
  140. note "Dialing without tone" 3
  141. matchclr
  142. matchstr 1 19 "OK\13\10"
  143. ! X1S6=4 to ignore dialtone 4 seconds, & ignore busy for blind dialing.
  144. !write "ATX1\13"                            (••••• Original Wallstreet script)
  145. write "ATX1S6=4\13"
  146. matchread 30
  147. jump 101
  148. !
  149. !
  150. @LABEL 19
  151. ! This is where we break up long dialstrings
  152. ! Display the full dialstring contained in Varstring 1
  153. note "Dialing ^1" 3
  154. !
  155. ! Varstrings 7, 8 and 9, contain dialstring fragments
  156. !    Long phone numbers may have been split into smaller groups
  157. !    so that the modem can use them
  158. ! Check to see whether these fragments exist.  If they do, dial them one at a time.
  159. ! If not, jump ahead and dial the remaining phone number.  Use the data tone.
  160. ! Varstring 3:  "p" for pulse & "t" for tone dialing
  161. ! Varstring 8 == blank (dialstring in varstring 7)
  162. ! Varstring 9 == blank (dialstring in varstrings 7 & 8)
  163. ! Otherwise (dialstring in varstrings 7, 8 & 9)
  164. ! \^ is added to the dialstring to force the modem to generate a data tone
  165. ifstr 8 27 " "
  166. ifstr 9 24 " "
  167. !
  168. !  Write dialstring in varstrings 7, 8 & 9
  169. matchclr
  170. matchstr 1 21 "OK\13\10"
  171. write "ATD^3^7;\13"
  172. matchread 400
  173. jump 101
  174. @LABEL 21
  175. matchclr
  176. matchstr 1 22 "OK\13\10"
  177. write "ATD^3^8;\13"
  178. matchread 400
  179. jump 101
  180. @LABEL 22
  181. write "ATD^3^9\13"
  182. jump 32
  183. !
  184. !
  185. @LABEL 24
  186. !  Write dialstring in varstrings 7 & 8
  187. matchclr
  188. matchstr 1 25 "OK\13\10"
  189. write "ATD^3^7;\13"
  190. matchread 400
  191. jump 101
  192. @LABEL 25
  193. write "ATD^3^8\13"
  194. jump 32
  195. !
  196. @LABEL 27
  197. !  Write dialstring in varstring 7
  198. write "ATD^3^7\13"
  199. !
  200. !
  201. !    ---- Connection response ----
  202. !
  203. ! The following section will parse modem responses of five types:
  204. !   1) PROTOCOL: xxx, COMPRESSION: xxx, CONNECT xxx
  205. !   2) CONNECT xxx/ARQ/V42
  206. !   3) Standard incoming and outgoing call progress messages
  207. !   4) FAX/DATA discrimination messages
  208. !   5) International DELAYED & BLACKLISTED restrictions.
  209. !
  210. @LABEL 32
  211. matchclr
  212. matchstr  1 88  "RING\13\10"
  213. matchstr  2 102 "NO DIALTONE\13\10"
  214. matchstr  3 103 "NO CARRIER"
  215. matchstr  4 103 "ERROR\13\10"
  216. matchstr  5 104 "BUSY\13\10"
  217. matchstr  6 105 "NO ANSWER\13\10"
  218. matchstr  7 33  "CONNECT "
  219. matchstr  8 32  "CARRIER"
  220. matchstr  9 40  "CONNECT\13\10"
  221. matchstr 10 82  "PROTOCOL: LAP"
  222. matchstr 11 82  "PROTOCOL: MNP"
  223. matchstr 12 82  "PROTOCOL: ALT"
  224. matchstr 13 84  "COMPRESSION: V"
  225. matchstr 14 84  "COMPRESSION: MNP5"
  226. matchstr 15 84  "COMPRESSION: CLASS"
  227. matchstr 16 110  "DELAYED  "
  228. matchstr 17 111  "BLACKLISTED\13\10"
  229. matchread 700
  230. ifANSWER 32
  231. jump 101
  232. !
  233. @LABEL 33
  234. matchclr
  235.  
  236. matchstr  1 39 "2400\13"
  237. matchstr  2 39 "2400/"
  238. matchstr  3 40 "4800\13"
  239. matchstr  4 40 "4800/"
  240. matchstr  5 41 "7200"
  241. matchstr  6 42 "9600"
  242. matchstr  7 43 "12000"
  243. matchstr  8 44 "14400"
  244. matchstr  9 45 "16800"
  245. matchstr 10 46 "19200"
  246. matchstr 11 47 "21600"
  247. matchstr 12 48 "24000"
  248. matchstr 13 49 "26400"
  249. matchstr 14 50 "28800"
  250. matchstr 15 51 "29333"
  251. matchstr 16 52 "30667"
  252. matchstr 17 53 "31200"
  253. matchstr 18 54 "32000"
  254. matchstr 19 55 "33333"
  255. matchstr 20 56 "33600"
  256. matchstr 21 57 "34000"
  257. matchstr 22 58 "34667"
  258. matchstr 23 59 "36000"
  259. matchstr 24 60 "37333"
  260. matchstr 25 61 "38000"
  261. matchstr 26 62 "38667"
  262. matchstr 27 63 "40000"
  263. matchstr 28 64 "41333"
  264. matchstr 29 65 "42000"
  265. matchstr 30 66 "42667"
  266. matchstr 31 67 "44000"
  267. matchstr 32 68 "45333"
  268. matchstr 33 69 "46000"
  269. matchstr 34 70 "46667"
  270. matchstr 35 71 "48000"
  271. matchstr 36 72 "49333"
  272. matchstr 37 73 "50000"
  273. matchstr 38 74 "50667"
  274. matchstr 39 75 "52000"
  275. matchstr 40 76 "53333"
  276. matchstr 41 77 "54000"
  277. matchstr 42 78 "54667"
  278. matchstr 43 79 "56000"
  279. matchread 30
  280. jump 80
  281. !
  282. ! -- Connection rates --
  283. ! CommunicatingAt informs ARA of the raw modem to modem
  284. ! connection speed.
  285. !
  286. @LABEL 39
  287. note "Communicating at 2400 bps." 2
  288. CommunicatingAt 2400
  289. jump 81
  290. !
  291. @LABEL 40
  292. note "Communicating at 4800 bps." 2
  293. CommunicatingAt 4800
  294. jump 81
  295. !
  296. @LABEL 41
  297. note "Communicating at 7200 bps." 2
  298. CommunicatingAt 7200
  299. jump 81
  300. !
  301. @LABEL 42
  302. note "Communicating at 9600 bps." 2
  303. CommunicatingAt 9600
  304. jump 81
  305. !
  306. @LABEL 43
  307. note "Communicating at 12400 bps." 2
  308. CommunicatingAt 12400
  309. jump 81
  310. !
  311. @LABEL 44
  312. note "Communicating at 14400 bps." 2
  313. CommunicatingAt 14400
  314. jump 81
  315. !
  316. @LABEL 45
  317. note "Communicating at 16800 bps." 2
  318. CommunicatingAt 16800
  319. jump 81
  320. !
  321. @LABEL 46
  322. note "Communicating at 19200 bps." 2
  323. CommunicatingAt 19200
  324. jump 81
  325. !
  326. @LABEL 47
  327. note "Communicating at 21600 bps." 2
  328. CommunicatingAt 21600
  329. jump 81
  330. !
  331. @LABEL 48
  332. note "Communicating at 24000 bps." 2
  333. CommunicatingAt 24000
  334. jump 81
  335. !
  336. @LABEL 49
  337. note "Communicating at 26400 bps." 2
  338. CommunicatingAt 26400
  339. jump 81
  340. !
  341. @LABEL 50
  342. note "Communicating at 28800 bps." 2
  343. CommunicatingAt 28800
  344. jump 81
  345. !
  346. @LABEL 51
  347. note "Communicating at 29333 bps." 2
  348. CommunicatingAt 29333
  349. jump 81
  350. !
  351. @LABEL 52
  352. note "Communicating at 30667 bps." 2
  353. CommunicatingAt 30667
  354. jump 81
  355. !
  356. @LABEL 53
  357. note "Communicating at 31200 bps." 2
  358. CommunicatingAt 31200
  359. jump 81
  360. !
  361. @LABEL 54
  362. note "Communicating at 32000 bps." 2
  363. CommunicatingAt 32000
  364. jump 81
  365. !
  366. @LABEL 55
  367. note "Communicating at 33333 bps." 2
  368. CommunicatingAt 33333
  369. jump 81
  370. !
  371. @LABEL 56
  372. note "Communicating at 33600 bps." 2
  373. CommunicatingAt 33600
  374. jump 81
  375. !
  376. @LABEL 57
  377. note "Communicating at 34000 bps." 2
  378. CommunicatingAt 34000
  379. jump 81
  380. !
  381. @LABEL 58
  382. note "Communicating at 34667 bps." 2
  383. CommunicatingAt 34667
  384. jump 81
  385. !
  386. @LABEL 59
  387. note "Communicating at 36000 bps." 2
  388. CommunicatingAt 36000
  389. jump 81
  390. !
  391. @LABEL 60
  392. note "Communicating at 37333 bps." 2
  393. CommunicatingAt 37333
  394. jump 81
  395. !
  396. @LABEL 61
  397. note "Communicating at 38000 bps." 2
  398. CommunicatingAt 38000
  399. jump 81
  400. !
  401. @LABEL 62
  402. note "Communicating at 38667 bps." 2
  403. CommunicatingAt 38667
  404. jump 81
  405. !
  406. @LABEL 63
  407. note "Communicating at 40000 bps." 2
  408. CommunicatingAt 40000
  409. jump 81
  410. !
  411. @LABEL 64
  412. note "Communicating at 41333 bps." 2
  413. CommunicatingAt 41333
  414. jump 81
  415. !
  416. @LABEL 65
  417. note "Communicating at 42000 bps." 2
  418. CommunicatingAt 42000
  419. jump 81
  420. !
  421. @LABEL 66
  422. note "Communicating at 42667 bps." 2
  423. CommunicatingAt 42667
  424. jump 81
  425. !
  426. @LABEL 67
  427. note "Communicating at 44000 bps." 2
  428. CommunicatingAt 44000
  429. jump 81
  430. !
  431. @LABEL 68
  432. note "Communicating at 45333 bps." 2
  433. CommunicatingAt 45333
  434. jump 81
  435. !
  436. @LABEL 69
  437. note "Communicating at 46000 bps." 2
  438. CommunicatingAt 46000
  439. jump 81
  440. !
  441. @LABEL 70
  442. note "Communicating at 46667 bps." 2
  443. CommunicatingAt 46667
  444. jump 81
  445. !
  446. @LABEL 71
  447. note "Communicating at 48000 bps." 2
  448. CommunicatingAt 48000
  449. jump 81
  450. !
  451. @LABEL 72
  452. note "Communicating at 49333 bps." 2
  453. CommunicatingAt 49333
  454. jump 81
  455. !
  456. @LABEL 73
  457. note "Communicating at 50000 bps." 2
  458. CommunicatingAt 50000
  459. jump 81
  460. !
  461. @LABEL 74
  462. note "Communicating at 50667 bps." 2
  463. CommunicatingAt 50667
  464. jump 81
  465. !
  466. @LABEL 75
  467. note "Communicating at 52000 bps." 2
  468. CommunicatingAt 52000
  469. jump 81
  470. !
  471. @LABEL 76
  472. note "Communicating at 53333 bps." 2
  473. CommunicatingAt 53333
  474. jump 81
  475. !
  476. @LABEL 77
  477. note "Communicating at 54000 bps." 2
  478. CommunicatingAt 54000
  479. jump 81
  480. !
  481. @LABEL 78
  482. note "Communicating at 54667 bps." 2
  483. CommunicatingAt 54667
  484. jump 81
  485. !
  486. @LABEL 79
  487. note "Communicating at 56000 bps." 2
  488. CommunicatingAt 56000
  489. jump 81
  490. !
  491. @LABEL 80
  492. note "Communicating at an unknown rate." 2
  493. jump 81
  494. !
  495. ! Look for reliablilty and compression results 
  496. ! at the end of the connect result.
  497. !
  498. @LABEL 81
  499. matchclr
  500. matchstr  1 83 "LAPM"
  501. matchstr  2 83 "REL"
  502. matchstr  3 83 "ARQ"
  503. matchstr  4 85 "COMP/"
  504. matchstr  5 85 "COMP\13"
  505. matchstr  6 83 "V42/"
  506. matchstr  7 83 "V42\13"
  507. matchstr  8 85 "V42BIS"
  508. matchstr  9 85 "V42bis"
  509. matchstr 10 83 "MNP\13"
  510. matchstr 11 85 "MNP5"
  511. matchstr 12 86 "\10"
  512. matchread 30
  513. jump 86
  514. ! -- Modem error correction link negotiation --
  515. ! Userhook 2 informs ARA that a modem-to-modem error
  516. ! correcting protocol has been negotiated
  517. !
  518. !
  519. @LABEL 82
  520. note "Modem Reliable Link Established." 2
  521. userhook 2
  522. jump 32
  523. !
  524. @LABEL 83
  525. note "Modem Reliable Link Established." 2
  526. userhook 2
  527. jump 81
  528. !
  529. ! -- Compression negotiation --
  530. ! Userhook 3 informs ARA that a modem-to-modem compression
  531. ! protocol has been negotiated
  532. !
  533. @LABEL 84
  534. note "Modem Compression Established." 2
  535. userhook 3
  536. jump 32
  537. !
  538. @LABEL 85
  539. note "Modem Compression Established." 2
  540. userhook 3
  541. jump 81
  542. !
  543. !
  544. ! -- Normal exit after "CONNECT" --
  545. !
  546. !  This modem has been setup to do CTS handshaking,
  547. !  and we assume that a CTS handshaking cable is being used.
  548. !
  549. @LABEL 86
  550. ! Turn on CTS handshaking.
  551. HSReset 0 1 0 0 0 0
  552. !
  553. ifANSWER 87
  554. pause 30
  555. @LABEL 87
  556. exit 0
  557. !
  558. !
  559. ! ---- Answer calls ----
  560. !
  561. ! A RING results from the modem in ANSWERING mode
  562. ! claims the serial port and answering the phone
  563. !
  564. @LABEL 88
  565. ifORIGINATE 32
  566. userhook 1
  567. note "Answering phone..." 2
  568. write "ATA\13"
  569. jump 32
  570. !  
  571. ! ---- Hang up and reset modem ----
  572. !
  573. @HANGUP 
  574. @LABEL 90 
  575. settries 0
  576. HSReset 0 0 0 0 0 0
  577. !
  578. @LABEL 91
  579. ! Try to get control of the modem
  580. !pause 1
  581. !write "+++"
  582. !pause 1 
  583. !matchclr
  584. !matchstr 1 96 "OK\13\10"
  585. !pause 15
  586. !write "AT\13"
  587. !matchread 30
  588. !
  589. @LABEL 94
  590. ! Force a hangup                            (••••• Different from Original Wallstreet script)
  591. matchclr
  592. matchstr 1 98 "NO CARRIER\13\10"
  593. matchstr 2 98 "OK\13\10"
  594. matchstr 3 98 "ERROR\13\10"
  595. matchstr 4 98 "0\13\10"
  596. matchstr 5 98 "DELAYED"
  597. matchstr 6 98 "BLACKLISTED"
  598. write "\28\28\28ATH\13"
  599. ! \28 = FS, the replacement escape character
  600. matchread 30
  601. ! Try again to get control of the modem by toggling DTR
  602. !
  603. @LABEL 95
  604. DTRClear
  605. Pause 2
  606. DTRSet
  607. flush
  608. !
  609. !
  610. ! Try the hangup sequence three times otherwise declare an error
  611. inctries
  612. iftries 3 101
  613. jump 91
  614. !
  615. @LABEL 96
  616. !
  617. ! Pause between data and command mode
  618. !
  619. pause 50
  620. jump 94
  621. !
  622. !
  623. @LABEL 97
  624. ! AT&F resulted in Error, try again using AT&F
  625. pause 15
  626. matchclr
  627. matchstr 1 99 "OK\13\10"
  628. write "AT&F\13"
  629. matchread 30
  630. jump 101
  631. !
  632. @LABEL 98
  633. ! Got control of the modem.  Recall the factory settings.  If it fails, jump 97.
  634. pause 15
  635. matchclr
  636. matchstr 1 99 "OK\13\10"
  637. matchstr 2 97 "ERROR\13\10"
  638. write "AT&F\13"
  639. matchread 30
  640. jump 101
  641. !
  642. @LABEL 99
  643. exit 0
  644. !
  645. ! ---- Error messages -----
  646. !
  647. ! Modem Not Responding
  648. @LABEL 101
  649. write "AT&F\13"
  650. pause 10
  651. exit -6019
  652. !
  653. ! No Dial Tone
  654. @LABEL 102
  655. matchstr 1 121 "OK\13\10"
  656. write "AT&F\13"
  657. matchread 30
  658. @LABEL 121
  659. exit -6020
  660. !
  661. ! No Carrier or Error
  662. @LABEL 103
  663. matchstr 1 122 "OK\13\10"
  664. write "AT&F\13"
  665. matchread 30
  666. @LABEL 122
  667. exit -6021
  668. !
  669. ! Busy
  670. @LABEL 104
  671. matchstr 1 123 "OK\13\10"
  672. write "AT&F\13"
  673. matchread 30
  674. @LABEL 123
  675. exit -6022
  676. !
  677. ! No Answer
  678. @LABEL 105
  679. matchstr 1 124 "OK\13\10"
  680. write "AT&F\13"
  681. matchread 30
  682. @LABEL 124
  683. exit -6023
  684. !
  685. ! User Cancellation
  686. @LABEL 107
  687. matchstr 1 108 "OK\13\10"
  688. write "AT&F\13"
  689. matchread 30
  690. @LABEL 108
  691. exit -6008
  692. !
  693. ! ---- DELAYED and BLACKLISTED functions ----
  694. @LABEL 110
  695. matchclr
  696. matchstr  1 119 "00:00:0"
  697. matchstr  2 118 "00:00:1"
  698. matchstr  3 117 "00:00:2"
  699. matchstr  4 116 "00:00:3"
  700. matchstr  5 115 "00:00:4"
  701. matchstr  6 114 "00:00:5"
  702. matchstr  7 113 "00:01:"
  703. matchstr  8 112 "00:02:"
  704. matchread 30
  705. ! (modified on 10/5/98) - Added the display in case delayed for more than 3 minutes exit with User Cancellation
  706. note "'DELAYED'. For more than 3 minutes."
  707. pause 20
  708. exit -6008
  709. !
  710. !The number is 'DELAYED' more than 3 minutes.  Exit the script telling the user to wait or reset his modem.
  711. !exit -6019 "\13The modem responds 'DELAYED':\13(Cannot redial this number right now.)\13To try again immediately, turn modem OFF and ON before proceeding."
  712. @LABEL 111
  713. !
  714. ! (modified on 10/5/98) - Added the display of the right string and exit with User Cancellation
  715. note "'BLACKLISTED'."
  716. pause 20
  717. exit -6008
  718. !
  719. !The number is 'BLACKLISTED'.  Exit the script, telling the user to reset his modem.
  720. !exit -6019 "\13The modem responds 'BLACKLISTED':\13(Cannot redial this number again.)\13Double-check the number, then turn your modem OFF and ON before proceeding."
  721. !
  722. @LABEL 112
  723. note "'DELAYED'. Redialing in 3 minutes..."
  724. pause 600
  725. @LABEL 113
  726. note "'DELAYED'. Redialing in 2 minutes..."
  727. pause 600
  728. @LABEL 114
  729. note "'DELAYED'. Redialing in 1 minute... "
  730. pause 100
  731. @LABEL 115
  732. note "'DELAYED'. Redialing in 50 seconds..."
  733. pause 100
  734. @LABEL 116
  735. note "'DELAYED'. Redialing in 40 seconds..."
  736. pause 100
  737. @LABEL 117
  738. note "'DELAYED'. Redialing in 30 seconds..."
  739. pause 100
  740. @LABEL 118
  741. note "'DELAYED'. Redialing in 20 seconds..."
  742. pause 100
  743. @LABEL 119
  744. note "'DELAYED'. Redialing in 10 seconds..."
  745. pause 100
  746. jump 1
  747. ! Labels 121-128 are reserved for emergency hacks.
  748. !
  749.